library(MASS)
data(Animals)

anim.m2 <- lm(log(brain)~log(body),data=Animals, subset=!(log(Animals$body)>8&log(Animals$brain)<6))
anim.m0 <- lm(log(brain)~1, data=Animals,subset=!(log(Animals$body)>8&log(Animals$brain)<6))
plot(log(brain)~log(body), data = Animals)
abline(anim.m2, col = "red")
abline(anim.m0, col = "blue")


anova(anim.m0,anim.m2)

anova(anim.m2)

####1. Qual a relao do comando 'anova' acima com:
## R.: Na relao anova(anim.m2) no h um modelo explcito no comando para o qual o modelo anim.m2 ser comparado, logo ele  comparado com um modelo nulo. J o comando anova(anim.m0,anim.m2) compara o anim.m2 com o modelo anim.m0 que foi feito no cdigo, no entanto esse modelo anim.m0  o prprio modelo nulo. Logo os dois comandos so iguais


####2. Qual a relao entre os valores obtidos por estes comandos:

summary(anim.m0)
mean(log(Animals$brain[!(log(Animals$body)>8&log(Animals$brain)<6)]))
sd(log(Animals$brain[!(log(Animals$body)>8&log(Animals$brain)<6)]))

#R.: No comando summary(anim.m0)  mostrado a sntese de alguns valores do modelo linear anim.m0, lembrando que este modelo foi feito correlacionando os valores com a sua prpria mdia, que  o segundo comando apresentado. J o terceiro comando  o desvio padro dos dados que se relaciona com o resduo do modelo nulo